home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_26_(10-1984).d64 / string search 2 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  806b  |  36 lines
  1. 20 A$="DUMMY DATA":REM  MUST BE A STRING
  2. 30 Q$="":REM THIS IS TO BE USED AS THE SEARCH STRING
  3. 40 DIMA$(300),Q%(300):REM SEARCHED STRING AND FLAG ARRAY
  4. 45 ML=PEEK(55)+256*PEEK(56):REM START ADDRESS
  5. 100 PRINT"BUILDING ARRAY"
  6. 110 Q$="GOOD"
  7. 120 FORL=1TO299
  8. 130 :
  9. 140 :A$(L)="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  10. 150 :
  11. 160 NEXTL
  12. 170 A$(1)="GARBAGE GOOD MORE GARBAGE"
  13. 180 A$(10)="GARB GOOD MORE GARB"
  14. 185 A$(70)="GOOD GARBAGE"
  15. 190 A$(100)="GARBAGE GOOD"
  16. 195 A$(250)="GARBAGE GOOD MORE GARBAGE"
  17. 200 PRINT"ARRAY FINISHED"
  18. 300 REM  BASIC SEARCH
  19. 310 PRINT"BASIC SEARCH":TI$="000000"
  20. 320 FORL=1TO299
  21. 330 :FORJ=1TOLEN(A$(L))-LEN(Q$)+1
  22. 340 ::IFMID$(A$(L),J,LEN(Q$))=Q$THENQ%(L)=1:NEXTL
  23. 350 :NEXTJ
  24. 360 NEXTL
  25. 370 PRINTTI;"JIFFIES"
  26. 380 FORL=1TO299
  27. 390 :IFQ%(L)<>0THENPRINTA$(L)
  28. 395 NEXTL
  29. 400 REM  ML SEARCH
  30. 410 PRINT"ML SEARCH":TI$="000000"
  31. 420 SYS(ML)
  32. 430 PRINTTI;"JIFFIES"
  33. 440 FORL=1TO299
  34. 450 :IFQ%(L)<>0THENPRINTA$(L)
  35. 460 NEXTL
  36.